home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / cdplay / aboutcd.frm next >
Text File  |  1995-05-07  |  5KB  |  166 lines
  1. VERSION 2.00
  2. Begin Form About 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "About CD Player"
  6.    ClientHeight    =   2880
  7.    ClientLeft      =   3795
  8.    ClientTop       =   3660
  9.    ClientWidth     =   4395
  10.    ClipControls    =   0   'False
  11.    Height          =   3285
  12.    KeyPreview      =   -1  'True
  13.    Left            =   3735
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   2880
  18.    ScaleWidth      =   4395
  19.    Top             =   3315
  20.    Width           =   4515
  21.    Begin SSCommand Command3D1 
  22.       Caption         =   "OK"
  23.       Font3D          =   0  'None
  24.       Height          =   615
  25.       Left            =   240
  26.       TabIndex        =   1
  27.       Top             =   2160
  28.       Width           =   3735
  29.    End
  30.    Begin SSPanel AboutPanel 
  31.       Alignment       =   8  'Center - BOTTOM
  32.       BackColor       =   &H00C0C0C0&
  33.       BevelInner      =   1  'Inset
  34.       BevelOuter      =   1  'Inset
  35.       Font3D          =   0  'None
  36.       Height          =   1935
  37.       Left            =   120
  38.       TabIndex        =   0
  39.       Top             =   120
  40.       Width           =   4095
  41.       Begin PictureBox PicLogo 
  42.          AutoSize        =   -1  'True
  43.          BackColor       =   &H00C0C0C0&
  44.          BorderStyle     =   0  'None
  45.          Height          =   615
  46.          Left            =   720
  47.          ScaleHeight     =   615
  48.          ScaleWidth      =   2535
  49.          TabIndex        =   7
  50.          Top             =   120
  51.          Width           =   2535
  52.          Begin Label lblLogo 
  53.             AutoSize        =   -1  'True
  54.             BackStyle       =   0  'Transparent
  55.             Caption         =   "CD Player"
  56.             FontBold        =   -1  'True
  57.             FontItalic      =   -1  'True
  58.             FontName        =   "MS Serif"
  59.             FontSize        =   24
  60.             FontStrikethru  =   0   'False
  61.             FontUnderline   =   0   'False
  62.             ForeColor       =   &H00C00000&
  63.             Height          =   525
  64.             Index           =   0
  65.             Left            =   0
  66.             TabIndex        =   4
  67.             Top             =   0
  68.             Width           =   2415
  69.          End
  70.          Begin Label lblLogo 
  71.             AutoSize        =   -1  'True
  72.             BackStyle       =   0  'Transparent
  73.             Caption         =   "CD Player"
  74.             FontBold        =   -1  'True
  75.             FontItalic      =   -1  'True
  76.             FontName        =   "MS Serif"
  77.             FontSize        =   24
  78.             FontStrikethru  =   0   'False
  79.             FontUnderline   =   0   'False
  80.             ForeColor       =   &H00FFFFFF&
  81.             Height          =   525
  82.             Index           =   1
  83.             Left            =   0
  84.             TabIndex        =   5
  85.             Top             =   30
  86.             Width           =   2415
  87.          End
  88.       End
  89.       Begin PictureBox Picture1 
  90.          BackColor       =   &H00C0C0C0&
  91.          BorderStyle     =   0  'None
  92.          Height          =   495
  93.          Index           =   1
  94.          Left            =   3435
  95.          Picture         =   ABOUTCD.FRX:0000
  96.          ScaleHeight     =   495
  97.          ScaleWidth      =   495
  98.          TabIndex        =   6
  99.          Top             =   150
  100.          Width           =   495
  101.       End
  102.       Begin PictureBox Picture1 
  103.          BackColor       =   &H00C0C0C0&
  104.          BorderStyle     =   0  'None
  105.          Height          =   495
  106.          Index           =   0
  107.          Left            =   165
  108.          Picture         =   ABOUTCD.FRX:0302
  109.          ScaleHeight     =   495
  110.          ScaleWidth      =   495
  111.          TabIndex        =   3
  112.          Top             =   120
  113.          Width           =   495
  114.       End
  115.       Begin Label Label1 
  116.          AutoSize        =   -1  'True
  117.          BackStyle       =   0  'Transparent
  118.          Height          =   195
  119.          Left            =   3960
  120.          TabIndex        =   2
  121.          Top             =   1680
  122.          Width           =   75
  123.       End
  124.    End
  125. End
  126. Option Explicit
  127.  
  128. Sub Command3D1_Click ()
  129.     Unload Me
  130. End Sub
  131.  
  132. Sub Form_KeyDown (KeyCode As Integer, Shift As Integer)
  133.     If KeyCode = 27 Then Unload Me
  134. End Sub
  135.  
  136. Sub Form_Load ()
  137.     Dim Message As String
  138.     Dim CRLF As String
  139.  
  140.     CRLF = Chr$(13) & Chr$(10)
  141.     CenterForm About, False
  142.     CenterLogo Me, AboutPanel
  143.  
  144.     Message = MCI_APP_TITLE & CRLF
  145.     Message = Message & Version & CRLF
  146.     Message = Message & "Brought to you by" & CRLF & CRLF
  147.     Message = Message & "MICROSOFT CORP C1994"
  148.     AboutPanel.Caption = Message
  149.     If CDForm.mnuOptionsItem(2).Checked Then OnTop CDForm
  150. End Sub
  151.  
  152. Sub Form_Unload (Cancel As Integer)
  153.     If CDForm.mnuOptionsItem(2).Checked Then OnTop Me
  154. End Sub
  155.  
  156. Sub Label1_Click ()
  157.     Dim CRLF As String
  158.  
  159.     CRLF = Chr$(13) & Chr$(10)
  160.     AboutPanel = "Programmed By" & CRLF
  161.     AboutPanel = AboutPanel & "James Bettone" & CRLF
  162.     AboutPanel = AboutPanel & "1994"
  163.  
  164. End Sub
  165.  
  166.